unit Screen1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, jpeg, ExtCtrls, ComCtrls, Sockets;


type
  TScreens = class(TForm)
  end;

  TfrmScreen1  = class(TScreens)
    Label2: TLabel;
    Image1: TImage;
    Image2: TImage;
    lblGeneratedDay: TLabel;
    Label5: TLabel;
    lblVidachaDay: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    lblConsumedMonth: TLabel;
    lblGeneratedMonth: TLabel;
    lblVidachaMonth: TLabel;
    lblConsumedYear: TLabel;
    lblGeneratedYear: TLabel;
    lblVidachaYear: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label32: TLabel;
    stbStatus: TStatusBar;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    lblGeneratedYesterDay: TLabel;
    lblVidachaYesterDay: TLabel;
    lblConsumedYesterDay: TLabel;
    TcpClient1: TTcpClient;
    lblCT34: TLabel;
    zCT34: TLabel;
    lblCT124: TLabel;
    zCT124: TLabel;
    lbl572: TLabel;
    zCT572: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    StringGrid1: TStringGrid;
    lbl6: TLabel;
    r: TLabel;
    lblVPS110Day: TLabel;
    lblLossesDay: TLabel;
    lblLossesMonth: TLabel;
    lblVPS110Month: TLabel;
    Label31: TLabel;
    Label30: TLabel;
    lblVPS110Year: TLabel;
    lblLossesYear: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    procedure FormActivate(Sender: TObject);
  published
    lblConsumedDay: TLabel;
    lblDay: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmScreen1: TfrmScreen1;

implementation


{$R *.dfm}

procedure TfrmScreen1.FormActivate(Sender: TObject);
begin
  //Image2.Picture.LoadFromFile();
end;

end.
